home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Tutorial Material / Zone Tutorial / Structure Examples / 1. Fractal next >
Lisp/Scheme  |  1998-10-26  |  471b  |  31 lines
  1. ;  FRACTAL - structure example
  2.  
  3. (setq tonal (activate-tonality 
  4.               (overtone-series 1 12 1 '(c 2))))
  5.  
  6. (setq mat (gen-noise-brownian 9 0.4 0.4))
  7. (setq mel (vector-to-symbol a x mat))
  8. (setq rhy (vector-to-list (vector-round (get-tick '1/16) (get-tick '1/2) mat)))
  9.  
  10. (def-symbol
  11.    sound mel
  12. )
  13.  
  14. (def-length
  15.    sound rhy
  16. )
  17.  
  18. (def-zone
  19.    sound (make-zone rhy)
  20. )             
  21.  
  22. (def-tonality
  23.    sound tonal
  24. )
  25.  
  26. (compile-instrument-p "ccl;output:" "song"
  27.    sound
  28. )
  29.  
  30.  
  31.